(show-paren-function): Use syntax-after.

diff --git a/lisp/paren.el b/lisp/paren.el
index 000854a01d2fe2b1fea41e66d7f36fd2fbc954d9..bb574f7aec293b9bbf6ac50d2f8c035ba3c940a3 100644 (file)
--- a/lisp/paren.el
+++ b/lisp/paren.el
@@ -135,11 +135,10 @@ in `show-paren-style' after `show-paren-delay' seconds of Emacs idle time."
 ;; and show it until input arrives.
 (defun show-paren-function ()
   (if show-paren-mode
-      (let (pos dir mismatch face (oldpos (point)))
-       (cond ((eq (char-syntax (preceding-char)) ?\))
-              (setq dir -1))
-             ((eq (char-syntax (following-char)) ?\()
-              (setq dir 1)))
+      (let ((oldpos (point))
+           (dir (cond ((eq (car (syntax-after (1- (point)))) 5) -1)
+                      ((eq (car (syntax-after (point))) 4) 1)))
+           pos mismatch face)
        ;;
        ;; Find the other end of the sexp.
        (when dir